home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Assess.Dxr / Internal_217_3 choice clickon.ls < prev    next >
Encoding:
Text File  |  1998-04-24  |  502 b   |  18 lines
  1. on mouseDown
  2.   set vThisSprite to the clickOn
  3.   case vThisSprite of
  4.     5:
  5.       puppetSound("boing.aif")
  6.     6:
  7.       puppetSound("boing2.aif")
  8.     7:
  9.       puppetSound("digiring.aif")
  10.   end case
  11.   set vTheseButtons to [5, 6, 7]
  12.   set vChoices to [#Notwell, #JustOK, #Verywell]
  13.   set vButtonNum to vThisSprite - (getAt(vTheseButtons, 1) - 1)
  14.   set vThisChoice to getAt(vChoices, vButtonNum)
  15.   clickButton3(vThisSprite, string(vThisChoice))
  16.   historyChoice(vTheseButtons, vThisChoice, vThisSprite)
  17. end
  18.